perm filename CYCOMD.LAP[1,LMM]1 blob
sn#031698 filedate 1973-03-27 generic text, type T, neo UTF8
(COMMENT GROUP AND LABELLING FUNCTIONS)
(LAP CHECKL SUBR)
(PUSH P 1)
(PUSH P 2)
(PUSH P 3)
(MOVEI 4 (QUOTE 0))
(CALL 4 (E CHECK))
(MOVEM 1 0 P)
(JUMPE 1 TAG2)
(HRRZ@ 1 1)
(HRRZ@ 1 1)
(HLRZ@ 1 1)
(JUMPE 1 TAG4)
(MOVE 1 0 P)
(CALL 1 (E NCONS))
(MOVE 2 -1 P)
(CALL 2 (E XCONS))
(MOVE 2 -2 P)
(CALL 2 (E XCONS))
(MOVEI 2 (QUOTE ERROR:))
(CALL 2 (E XCONS))
(MOVEI 2 (QUOTE CHECKL))
(CALL 2 (E XCONS))
(CALL 1 (E PRINT))
(MOVEI 1 (QUOTE NIL))
(JRST 0 TAG3)
TAG4 (HRRZ@ 1 0 P)
(HRRZ@ 1 1)
(HRRZ@ 1 1)
(CALL 1 (E REVERSE))
(MOVE 2 -1 P)
(CALL 2 (E XCONS))
(MOVE 2 -2 P)
(CALL 2 (E XCONS))
(CALL 1 (E NCONS))
TAG5
TAG3 (JRST 0 TAG1)
TAG2 (MOVEI 1 (QUOTE NIL))
TAG7
TAG1 (SUB P (C 0 0 3 3))
(POPJ P)
NIL
(LAP COMB SUBR)
(PUSH P 1)
(PUSH P 2)
(PUSH P 3)
(PUSH P 4)
(PUSH P 5)
(CAIE 5 (QUOTE 0))
(JRST 0 TAG2)
(EXCH 2 1)
(MOVE 1 3)
(CALL 2 (E *APPEND))
(MOVE 3 -1 P)
(MOVE 2 1)
(MOVE 1 -3 P)
(CALL 3 (E CHECKL))
(JRST 0 TAG1)
TAG2 (CALL 1 (E LENGTH))
(MOVE 2 5)
(CALL 2 (E EQUAL))
(JUMPE 1 TAG3)
(MOVE 2 -3 P)
(MOVE 1 -4 P)
(CALL 2 (E *APPEND))
(MOVE 3 -1 P)
(MOVE 2 -2 P)
(CALL 3 (E CHECKL))
(JRST 0 TAG1)
TAG3 (MOVE 1 -4 P)
(CALL 1 (E LENGTH))
(MOVE 2 0 P)
(CALL 2 (E *LESS))
(JUMPE 1 TAG4)
(MOVEI 1 (QUOTE NIL))
(JRST 0 TAG1)
TAG4 (MOVE 2 -3 P)
(HLRZ@ 1 -4 P)
(CALL 2 (E CONS))
(PUSH P 1)
(HRRZ@ 1 -5 P)
(PUSH P 1)
(MOVE 1 -2 P)
(CALL 1 (E SUB1))
(MOVE 5 1)
(MOVE 4 -3 P)
(MOVE 3 -4 P)
(MOVE 2 -1 P)
(POP P 1)
(CALL 5 (E COMBCHECK))
(MOVE 2 -3 P)
(MOVEM 1 0 P)
(HLRZ@ 1 -5 P)
(CALL 2 (E CONS))
(MOVE 5 -1 P)
(MOVE 4 -2 P)
(MOVE 3 1)
(MOVE 2 -4 P)
(HRRZ@ 1 -5 P)
(CALL 5 (E COMBCHECK))
(MOVE 2 1)
(POP P 1)
(CALL 2 (E *APPEND))
TAG5
TAG1 (SUB P (C 0 0 5 5))
(POPJ P)
NIL
(LAP COMBCHECK SUBR)
(PUSH P 1)
(PUSH P 2)
(PUSH P 3)
(PUSH P 4)
(PUSH P 5)
(MOVE 4 5)
(MOVE 3 -1 P)
(MOVE 2 -2 P)
(MOVE 1 -3 P)
(CALL 4 (E CHECK))
(MOVEM 1 -1 P)
(JUMPE 1 TAG2)
(HLRZ@ 2 1)
(MOVE 1 -4 P)
(CALL 2 (E DIFF))
(PUSH P 1)
(HRRZ@ 1 -2 P)
(PUSH P 1)
(HRRZ@ 1 -3 P)
(HLRZ@ 5 0 P)
(HRRZ@ 4 1)
(MOVE 3 -4 P)
(HLRZ@ 2 -3 P)
(EXCH 1 -1 P)
(CALL 5 (E COMB))
(SUB P (C 0 0 2 2))
(JRST 0 TAG1)
TAG2 (MOVEI 1 (QUOTE NIL))
TAG3
TAG1 (SUB P (C 0 0 5 5))
(POPJ P)
NIL
(LAP CHECK SUBR)
(PUSH P 1)
(PUSH P 2)
(PUSH P 3)
(PUSH P 4)
(HRRZ@ 1 3)
(PUSH P 1)
(HLRZ@ 1 3)
(MOVEM 1 -2 P)
(PUSH P (C 0 0 (QUOTE NIL) 0))
(PUSH P (C 0 0 (QUOTE NIL) 0))
(PUSH P (C 0 0 (QUOTE NIL) 0))
TAG1 (MOVE 1 -5 P)
(JUMPN 1 TAG16)
(MOVE 2 -3 P)
(MOVE 1 0 P)
(CALL 2 (E CONS))
(MOVE 2 -4 P)
(CALL 2 (E XCONS))
(MOVE 2 -7 P)
(CALL 2 (E XCONS))
(JRST 0 TAG12)
TAG16 (HLRZ@ 1 -5 P)
(HLRZ@ 1 1)
(MOVEM 1 -1 P)
(HLRZ@ 1 -5 P)
(HRRZ@ 1 1)
(HLRZ@ 1 1)
(MOVEM 1 -2 P)
TAG2 (MOVE 1 -1 P)
(JUMPE 1 TAG6)
(MOVE 2 -7 P)
(HLRZ@ 1 1)
(CALL 2 (E MEMBER))
(JUMPN 1 TAG7)
(MOVE 2 -6 P)
(HLRZ@ 1 -1 P)
(CALL 2 (E MEMBER))
(JUMPN 1 TAG11)
TAG3 (HLRZ@ 1 -5 P)
(HRRZ@ 2 1)
(HRRZ@ 2 2)
(MOVE 1 -2 P)
(CALL 2 (E CONS))
(MOVE 2 -1 P)
(CALL 2 (E XCONS))
(MOVE 2 0 P)
(CALL 2 (E CONS))
(MOVEM 1 0 P)
TAG4 (HRRZ@ 1 -5 P)
(MOVEM 1 -5 P)
(JRST 0 TAG1)
TAG5 (CLEARM 1 0 P)
TAG6 (MOVE 2 -3 P)
(HLRZ@ 1 -5 P)
(HRRZ@ 1 1)
(HRRZ@ 1 1)
(CALL 2 (E CONS))
(MOVEM 1 -3 P)
(JRST 0 TAG4)
TAG7 (MOVE 2 -7 P)
(HLRZ@ 1 -2 P)
(CALL 2 (E MEMBER))
(JUMPN 1 TAG10)
(MOVE 2 -6 P)
(HLRZ@ 1 -2 P)
(CALL 2 (E MEMBER))
(JUMPN 1 TAG13)
(MOVE 1 -4 P)
(CALL 1 (E SUB1))
(MOVEM 1 -4 P)
(CALL 1 (E MINUSP))
(JUMPN 1 TAG13)
(MOVE 2 -7 P)
(HLRZ@ 1 -2 P)
(CALL 2 (E CONS))
(MOVE 2 -5 P)
(MOVEM 1 -7 P)
(MOVE 1 0 P)
(CALL 2 (E *APPEND))
(MOVEM 1 -5 P)
(HRRZ@ 1 -1 P)
(JUMPE 1 TAG5)
(HLRZ@ 1 -5 P)
(HRRZ@ 2 1)
(HRRZ@ 2 2)
(HRRZ@ 1 -2 P)
(CALL 2 (E CONS))
(HRRZ@ 2 -1 P)
(CALL 2 (E XCONS))
(CALL 1 (E NCONS))
(MOVEM 1 0 P)
(JRST 0 TAG4)
TAG10 (HRRZ@ 1 -1 P)
(MOVEM 1 -1 P)
(HRRZ@ 1 -2 P)
(MOVEM 1 -2 P)
(JRST 0 TAG2)
TAG11 (MOVE 2 -7 P)
(HLRZ@ 1 -2 P)
(CALL 2 (E MEMBER))
(JUMPN 1 TAG4)
(MOVE 2 -6 P)
(HLRZ@ 1 -2 P)
(CALL 2 (E MEMBER))
(JUMPN 1 TAG10)
(JRST 0 TAG3)
TAG13 (MOVEI 1 (QUOTE NIL))
TAG12 (SUB P (C 0 0 10 10))
(POPJ P)
NIL
(LAP LLABEL SUBR)
(PUSH P 1)
(PUSH P 2)
(PUSH P 3)
(JUMPN 2 TAG11)
(MOVE 2 3)
(MOVEI 1 (QUOTE NIL))
(CALL 2 (E CONS))
(MOVEI 2 (QUOTE NIL))
(CALL 2 (E XCONS))
(CALL 1 (E NCONS))
(JRST 0 TAG10)
TAG11 (MOVE 3 0 P)
(HLRZ@ 2 -1 P)
(HLRZ@ 1 -2 P)
(CALL 3 (E LABELM))
(PUSH P 1)
(PUSH P (C 0 0 (QUOTE NIL) 0))
(PUSH P (C 0 0 (QUOTE NIL) 0))
(PUSH P (C 0 0 (QUOTE NIL) 0))
(PUSH P (C 0 0 (QUOTE NIL) 0))
TAG1 (MOVE 1 -4 P)
(JUMPE 1 TAG7)
(HLRZ@ 1 1)
(MOVEM 1 -3 P)
(HRRZ@ 1 1)
(HRRZ@ 3 1)
(HRRZ@ 2 -6 P)
(HRRZ@ 1 -7 P)
(CALL 3 (E LLABEL))
(MOVEM 1 -1 P)
TAG2 (MOVE 1 -1 P)
(JUMPE 1 TAG5)
(HLRZ@ 1 1)
(HLRZ@ 2 1)
(MOVEM 1 -2 P)
(HLRZ@ 1 -3 P)
(CALL 2 (E CONS))
(HRRZ@ 2 -2 P)
(CALL 2 (E CONS))
(MOVE 2 0 P)
(CALL 2 (E CONS))
(MOVEM 1 0 P)
TAG3
TAG4 (HRRZ@ 1 -1 P)
(MOVEM 1 -1 P)
(JRST 0 TAG2)
TAG5
TAG6 (HRRZ@ 1 -4 P)
(MOVEM 1 -4 P)
(JRST 0 TAG1)
TAG7 (MOVE 1 0 P)
(SUB P (C 0 0 5 5))
TAG12
TAG10 (SUB P (C 0 0 3 3))
(POPJ P)
NIL
(LAP LABELM SUBR)
(PUSH P 1)
(PUSH P 2)
(PUSH P 3)
(JUMPN 2 TAG11)
(MOVE 2 3)
(CALL 2 (E CONS))
(MOVEI 2 (QUOTE NIL))
(CALL 2 (E XCONS))
(CALL 1 (E NCONS))
(JRST 0 TAG10)
TAG11 (MOVE 3 0 P)
(HLRZ@ 2 -1 P)
(MOVE 1 -2 P)
(CALL 3 (E LABEL1))
(PUSH P 1)
(PUSH P (C 0 0 (QUOTE NIL) 0))
(PUSH P (C 0 0 (QUOTE NIL) 0))
(PUSH P (C 0 0 (QUOTE NIL) 0))
(PUSH P (C 0 0 (QUOTE NIL) 0))
TAG1 (MOVE 1 -4 P)
(JUMPE 1 TAG7)
(HLRZ@ 1 1)
(MOVEM 1 -3 P)
(HRRZ@ 1 1)
(PUSH P 1)
(HRRZ@ 1 -4 P)
(HRRZ@ 3 0 P)
(HRRZ@ 2 -7 P)
(HLRZ@ 1 1)
(CALL 3 (E LABELM))
(SUB P (C 0 0 1 1))
(MOVEM 1 -1 P)
TAG2 (MOVE 1 -1 P)
(JUMPE 1 TAG5)
(HLRZ@ 1 1)
(HLRZ@ 2 1)
(MOVEM 1 -2 P)
(HLRZ@ 1 -3 P)
(CALL 2 (E CONS))
(HRRZ@ 2 -2 P)
(CALL 2 (E CONS))
(MOVE 2 0 P)
(CALL 2 (E CONS))
(MOVEM 1 0 P)
TAG3
TAG4 (HRRZ@ 1 -1 P)
(MOVEM 1 -1 P)
(JRST 0 TAG2)
TAG5
TAG6 (HRRZ@ 1 -4 P)
(MOVEM 1 -4 P)
(JRST 0 TAG1)
TAG7 (MOVE 1 0 P)
(SUB P (C 0 0 5 5))
TAG12
TAG10 (SUB P (C 0 0 3 3))
(POPJ P)
NIL
(LAP LABEL1 SUBR)
(PUSH P 1)
(PUSH P 2)
(PUSH P 3)
(PUSH P (C 0 0 (QUOTE NIL) 0))
(CAIE 2 (QUOTE 0))
(JRST 0 TAG5)
(MOVE 2 3)
(CALL 2 (E CONS))
(MOVEI 2 (QUOTE NIL))
(CALL 2 (E XCONS))
(CALL 1 (E NCONS))
(JRST 0 TAG4)
TAG5 (CALL 1 (E SIZE))
(MOVE 2 -2 P)
(MOVEM 1 0 P)
(CALL 2 (E EQUAL))
(JUMPE 1 TAG6)
(MOVE 2 -1 P)
(MOVEI 1 (QUOTE NIL))
(CALL 2 (E CONS))
(MOVE 2 -3 P)
(CALL 2 (E XCONS))
(CALL 1 (E NCONS))
(JRST 0 TAG4)
TAG6 (MOVE 2 0 P)
(MOVE 1 -2 P)
(CALL 2 (E *GREAT))
(JUMPE 1 TAG7)
(MOVEI 1 (QUOTE NIL))
(JRST 0 TAG4)
TAG7 (MOVE 2 -1 P)
(MOVE 1 -3 P)
(CALL 2 (E CLASSES))
(HRRZ@ 2 1)
(MOVEM 1 -3 P)
(JUMPN 2 TAG10)
(MOVE 3 -1 P)
(MOVE 2 -2 P)
(HLRZ@ 1 1)
(CALL 3 (E LABEL1C))
(JRST 0 TAG4)
TAG10 (MOVE 3 -1 P)
(MOVE 2 -2 P)
(MOVE 1 -3 P)
(CALL 3 (E LABEL1L))
TAG11
TAG4 (SUB P (C 0 0 4 4))
(POPJ P)
NIL
(LAP LABEL1L SUBR)
(PUSH P 1)
(PUSH P 2)
(PUSH P 3)
(JUMPN 1 TAG24)
(CAIE 2 (QUOTE 0))
(JRST 0 TAG26)
(MOVE 2 3)
(CALL 2 (E CONS))
(MOVEI 2 (QUOTE NIL))
(CALL 2 (E XCONS))
(CALL 1 (E NCONS))
(JRST 0 TAG25)
TAG26 (MOVEI 1 (QUOTE NIL))
TAG27
TAG25 (JRST 0 TAG23)
TAG24 (CAIE 2 (QUOTE 0))
(JRST 0 TAG31)
(PUSH P (C 0 0 (QUOTE NIL) 0))
(PUSH P 1)
(PUSH P (C 0 0 (QUOTE NIL) 0))
(PUSH P (C 0 0 (QUOTE NIL) 0))
TAG1 (MOVE 1 -2 P)
(JUMPE 1 TAG4)
(HLRZ@ 1 1)
(MOVE 2 -3 P)
(MOVEM 1 -1 P)
(CALL 2 (E COMBINE))
(MOVEM 1 -3 P)
TAG2
TAG3 (HRRZ@ 1 -2 P)
(MOVEM 1 -2 P)
(JRST 0 TAG1)
TAG4 (MOVE 1 0 P)
(SUB P (C 0 0 3 3))
(MOVE 1 0 P)
(MOVE 2 -1 P)
(CALL 2 (E CONS))
(MOVEI 2 (QUOTE NIL))
(CALL 2 (E XCONS))
(CALL 1 (E NCONS))
(SUB P (C 0 0 1 1))
(JRST 0 TAG23)
TAG31 (HLRZ@ 1 -2 P)
(CALL 1 (E SIZE))
(PUSH P 1)
(PUSH P (C 0 0 (QUOTE NIL) 0))
(PUSH P (C 0 0 (QUOTE 0) 0))
(HRRZ@ 2 -5 P)
(PUSH P 2)
(PUSH P (C 0 0 (QUOTE NIL) 0))
TAG5 (MOVE 2 -1 P)
(JUMPN 2 TAG52)
(JRST 0 TAG10)
TAG52 (HLRZ@ 2 -1 P)
(MOVE 1 2)
(MOVEM 2 0 P)
(CALL 1 (E SIZE))
(MOVE 2 -2 P)
(CALL 2 (E *PLUS))
(MOVEM 1 -2 P)
TAG6
TAG7 (HRRZ@ 2 -1 P)
(MOVEM 2 -1 P)
(JRST 0 TAG5)
TAG10 (MOVE 2 -2 P)
(MOVE 1 -4 P)
(CALL 2 (E *PLUS))
(SUB P (C 0 0 3 3))
(MOVEM 1 0 P)
(MOVE 2 -1 P)
(MOVE 1 -3 P)
(CALL 2 (E MIN))
(MOVE 2 -1 P)
(PUSH P 1)
(MOVE 1 -1 P)
(CALL 2 (E *DIF))
(MOVE 2 1)
(MOVE 1 -4 P)
(CALL 2 (E *DIF))
(MOVE 2 1)
(MOVEI 1 (QUOTE 0))
(CALL 2 (E MAX))
(PUSH P 1)
(PUSH P (C 0 0 (QUOTE NIL) 0))
(PUSH P (C 0 0 (QUOTE NIL) 0))
(PUSH P (C 0 0 (QUOTE NIL) 0))
(PUSH P (C 0 0 (QUOTE NIL) 0))
(PUSH P (C 0 0 (QUOTE NIL) 0))
TAG11 (MOVE 2 -6 P)
(MOVE 1 -5 P)
(CALL 2 (E *GREAT))
(JUMPN 1 TAG22)
(MOVE 3 -11 P)
(MOVE 2 -5 P)
(HLRZ@ 1 -13 P)
(CALL 3 (E LABEL1C))
(MOVEM 1 -3 P)
TAG12 (MOVE 1 -3 P)
(JUMPE 1 TAG20)
(HLRZ@ 1 1)
(MOVEM 1 -4 P)
(HRRZ@ 1 -13 P)
(MOVE 2 -5 P)
(PUSH P 1)
(MOVE 1 -13 P)
(CALL 2 (E *DIF))
(PUSH P 1)
(HRRZ@ 1 -6 P)
(HRRZ@ 3 1)
(POP P 2)
(POP P 1)
(CALL 3 (E LABEL1L))
(MOVEM 1 -1 P)
TAG13 (MOVE 1 -1 P)
(JUMPE 1 TAG16)
(HLRZ@ 1 1)
(HLRZ@ 2 1)
(MOVEM 1 -2 P)
(HLRZ@ 1 -4 P)
(CALL 2 (E COMBINE))
(PUSH P 1)
(HRRZ@ 1 -3 P)
(PUSH P 1)
(HRRZ@ 1 -6 P)
(HLRZ@ 2 0 P)
(HLRZ@ 1 1)
(CALL 2 (E COMBINE))
(HRRZ@ 2 -4 P)
(HRRZ@ 2 2)
(CALL 2 (E CONS))
(MOVE 2 -1 P)
(CALL 2 (E XCONS))
(MOVE 2 -2 P)
(CALL 2 (E CONS))
(SUB P (C 0 0 2 2))
(MOVEM 1 0 P)
TAG14
TAG15 (HRRZ@ 1 -1 P)
(MOVEM 1 -1 P)
(JRST 0 TAG13)
TAG16
TAG17 (HRRZ@ 1 -3 P)
(MOVEM 1 -3 P)
(JRST 0 TAG12)
TAG20
TAG21 (MOVEI 2 (QUOTE 1))
(MOVE 1 -5 P)
(CALL 2 (E *PLUS))
(MOVEM 1 -5 P)
(JRST 0 TAG11)
TAG22 (MOVE 1 0 P)
(SUB P (C 0 0 11 11))
TAG41
TAG23 (SUB P (C 0 0 3 3))
(POPJ P)
NIL
(LAP COMB1 SUBR)
(PUSH P 1)
(PUSH P 2)
(PUSH P 3)
(PUSH P 4)
(PUSH P 5)
(CAIE 5 (QUOTE 0))
(JRST 0 TAG2)
(MOVE 2 4)
(MOVE 1 3)
(CALL 2 (E CONS))
(MOVE 2 -3 P)
(CALL 2 (E XCONS))
(CALL 1 (E NCONS))
(JRST 0 TAG1)
TAG2 (CALL 1 (E LENGTH))
(MOVE 2 5)
(CALL 2 (E EQUAL))
(JUMPE 1 TAG3)
(MOVE 2 -3 P)
(MOVE 1 -4 P)
(CALL 2 (E *APPEND))
(MOVE 2 -1 P)
(PUSH P 1)
(MOVE 1 -3 P)
(CALL 2 (E CONS))
(POP P 2)
(CALL 2 (E XCONS))
(CALL 1 (E NCONS))
(JRST 0 TAG1)
TAG3 (PUSH P (C 0 0 TAG6 0))
(MOVE 2 -4 P)
(HLRZ@ 1 -5 P)
(CALL 2 (E CONS))
(PUSH P 1)
(HRRZ@ 1 -6 P)
(PUSH P 1)
(MOVE 1 -3 P)
(CALL 1 (E SUB1))
(MOVE 5 1)
(MOVE 4 -4 P)
(MOVE 3 -5 P)
(MOVE 2 -1 P)
(POP P 1)
(CALL 5 (E COMB1))
(SUB P (C 0 0 1 1))
(PUSH P 1)
(MOVE 2 -4 P)
(HLRZ@ 1 -6 P)
(CALL 2 (E CONS))
(MOVE 5 -2 P)
(MOVE 4 -3 P)
(MOVE 3 1)
(MOVE 2 -5 P)
(HRRZ@ 1 -6 P)
(CALL 5 (E COMB1))
(PUSH P 1)
(MOVNI 6 2)
(JCALL 16 (E NCONC))
TAG6
TAG4
TAG1 (SUB P (C 0 0 5 5))
(POPJ P)
NIL
(LAP FIXUPGROUP SUBR)
(PUSH P 1)
(HRRZ@ 1 1)
(HRRZ@ 1 1)
(HRRZ@ 1 1)
(PUSH P 1)
(MOVE 1 -1 P)
(CALL 1 (E NODES))
(PUSH P 1)
(HRRZ@ 1 -2 P)
(HRRZ@ 1 1)
(HRRZ@ 1 1)
(HRRZ@ 1 1)
(HLRZ@ 1 1)
(PUSH P 1)
(PUSH P (C 0 0 (QUOTE NIL) 0))
(PUSH P (C 0 0 (QUOTE NIL) 0))
TAG1 (MOVE 1 -2 P)
(JUMPN 1 TAG14)
(JRST 0 TAG4)
TAG14 (HLRZ@ 1 -2 P)
(MOVE 2 1)
(MOVEM 1 -1 P)
(MOVE 1 -3 P)
(CALL 2 (E DIFF))
(MOVEM 1 -3 P)
TAG2
TAG3 (HRRZ@ 1 -2 P)
(MOVEM 1 -2 P)
(JRST 0 TAG1)
TAG4 (MOVE 1 0 P)
(SUB P (C 0 0 3 3))
(MOVE 1 0 P)
(MOVE 2 -2 P)
(CALL 2 (E CLASSIFYNODES))
(MOVE 2 1)
(EXCH 1 -2 P)
(CALL 2 (E FINDNEWGROUP))
(HRRM@ 1 -1 P)
(EXCH 1 -1 P)
(SUB P (C 0 0 3 3))
(POPJ P)
NIL
(LAP FINDNEWGROUP SUBR)
(PUSH P 1)
(PUSH P 2)
(PUSH P (C 0 0 (QUOTE NIL) 0))
(HRRZ@ 1 1)
(HRRZ@ 1 1)
(HRRZ@ 1 1)
(HRRZ@ 1 1)
(HLRZ@ 1 1)
(PUSH P 2)
(PUSH P 1)
(PUSH P (C 0 0 (QUOTE NIL) 0))
TAG1 (MOVE 1 -2 P)
(JUMPE 1 TAG4)
(HLRZ@ 1 1)
(MOVEM 1 0 P)
(CALL 1 (E REVERSE))
(MOVE 2 -1 P)
(CALL 2 (E CONS))
(MOVEM 1 -1 P)
TAG2
TAG3 (HRRZ@ 1 -2 P)
(MOVEM 1 -2 P)
(JRST 0 TAG1)
TAG4 (MOVE 1 -1 P)
(SUB P (C 0 0 3 3))
(MOVEM 1 0 P)
(MOVE 2 -1 P)
(MOVE 1 -2 P)
(CALL 2 (E FINDNEWGROUP1))
(PUSH P 1)
(PUSH P (C 0 0 (QUOTE NIL) 0))
(PUSH P (C 0 0 (QUOTE NIL) 0))
TAG5 (MOVE 2 -2 P)
(JUMPN 2 TAG24)
(JRST 0 TAG10)
TAG24 (HLRZ@ 2 -2 P)
(MOVEM 2 -1 P)
(HRRZ@ 2 2)
(MOVE 1 -3 P)
(CALL 2 (E EQUAL))
(JUMPE 1 TAG26)
(JRST 0 TAG7)
TAG26 (MOVE 2 0 P)
(HRRZ@ 1 -1 P)
(CALL 2 (E CONS))
(MOVEM 1 0 P)
TAG6
TAG7 (HRRZ@ 2 -2 P)
(MOVEM 2 -2 P)
(JRST 0 TAG5)
TAG10 (MOVE 2 0 P)
(MOVE 1 -3 P)
(SUB P (C 0 0 6 6))
(JCALL 2 (E CONS))
NIL
(LAP FINDNEWGROUP1 SUBR)
(PUSH P 1)
(PUSH P 2)
(PUSH P (C 0 0 (QUOTE NIL) 0))
(HRRZ@ 1 1)
(HRRZ@ 1 1)
(HRRZ@ 1 1)
(HRRZ@ 1 1)
(PUSH P 1)
(PUSH P (C 0 0 (QUOTE NIL) 0))
TAG1 (MOVE 1 -1 P)
(JUMPE 1 TAG4)
(HLRZ@ 1 1)
(MOVEM 1 0 P)
(PUSH P (C 0 0 TAG11 0))
(PUSH P -3 P)
(MOVEI 2 (QUOTE NIL))
(CALL 2 (E XCONS))
(HRRZ@ 2 -6 P)
(HRRZ@ 2 2)
(HRRZ@ 2 2)
(HRRZ@ 2 2)
(HLRZ@ 2 2)
(PUSH P 1)
(MOVEI 1 (QUOTE NIL))
(CALL 2 (E CONS))
(MOVE 5 -7 P)
(MOVE 4 1)
(POP P 3)
(MOVE 2 -5 P)
(HLRZ@ 1 2)
(CALL 5 (E FINDPERMS))
(PUSH P 1)
(MOVNI 6 2)
(JCALL 16 (E NCONC))
TAG11 (MOVEM 1 -2 P)
TAG2
TAG3 (HRRZ@ 1 -1 P)
(MOVEM 1 -1 P)
(JRST 0 TAG1)
TAG4 (MOVE 1 -2 P)
(SUB P (C 0 0 5 5))
(POPJ P)
NIL
(LAP FINDPERMS SUBR)
(PUSH P 1)
(PUSH P 2)
(PUSH P 3)
(PUSH P 4)
(PUSH P 5)
(JUMPN 2 TAG6)
(MOVE 1 3)
(CALL 1 (E NCONS))
(JRST 0 TAG5)
TAG6 (JUMPN 1 TAG7)
(MOVE 2 3)
(CALL 2 (E CONS))
(MOVE 2 4)
(PUSH P 1)
(MOVEI 1 (QUOTE NIL))
(CALL 2 (E CONS))
(EXCH 4 1)
(POP P 3)
(HRRZ@ 2 -3 P)
(HRRZ@ 1 -3 P)
(HLRZ@ 1 1)
(CALL 5 (E FINDPERMS))
(JRST 0 TAG5)
TAG7 (PUSH P (C 0 0 (QUOTE NIL) 0))
(MOVE 5 -1 P)
(MOVE 4 -2 P)
(MOVE 3 -3 P)
(HLRZ@ 2 -4 P)
(HLRZ@ 1 -5 P)
(CALL 5 (E POSSIMS))
(PUSH P 1)
(PUSH P (C 0 0 (QUOTE NIL) 0))
TAG1 (MOVE 1 -1 P)
(JUMPE 1 TAG4)
(HLRZ@ 1 1)
(MOVEM 1 0 P)
(PUSH P (C 0 0 TAG16 0))
(PUSH P -3 P)
(HLRZ@ 2 -7 P)
(CALL 2 (E CONS))
(HRRZ@ 2 -7 P)
(CALL 2 (E CONS))
(HLRZ@ 2 -6 P)
(PUSH P 1)
(HLRZ@ 1 -12 P)
(CALL 2 (E CONS))
(HRRZ@ 2 -7 P)
(CALL 2 (E CONS))
(MOVE 5 -6 P)
(MOVE 4 1)
(POP P 3)
(MOVE 2 -10 P)
(HRRZ@ 1 -11 P)
(CALL 5 (E FINDPERMS))
(PUSH P 1)
(MOVNI 6 2)
(JCALL 16 (E NCONC))
TAG16 (MOVEM 1 -2 P)
TAG2
TAG3 (HRRZ@ 1 -1 P)
(MOVEM 1 -1 P)
(JRST 0 TAG1)
TAG4 (MOVE 1 -2 P)
(SUB P (C 0 0 3 3))
TAG10
TAG5 (SUB P (C 0 0 5 5))
(POPJ P)
NIL
(LAP POSSIMS SUBR)
(PUSH P 1)
(PUSH P 2)
(PUSH P 3)
(PUSH P 4)
(PUSH P 5)
(PUSH P 2)
(PUSH P (C 0 0 (QUOTE NIL) 0))
(PUSH P (C 0 0 (QUOTE NIL) 0))
TAG1 (MOVE 1 -2 P)
(JUMPE 1 TAG15)
(HLRZ@ 1 1)
(MOVEM 1 -1 P)
(HLRZ@ 2 -5 P)
(CALL 2 (E MEMBER))
(JUMPN 1 TAG14)
(PUSH P (C 0 0 (QUOTE T) 0))
(PUSH P -5 P)
(PUSH P -7 P)
(PUSH P (C 0 0 (QUOTE NIL) 0))
(PUSH P (C 0 0 (QUOTE NIL) 0))
(PUSH P (C 0 0 (QUOTE NIL) 0))
(PUSH P (C 0 0 (QUOTE NIL) 0))
(PUSH P (C 0 0 (QUOTE NIL) 0))
(PUSH P (C 0 0 (QUOTE NIL) 0))
TAG2 (MOVE 1 -7 P)
(JUMPE 1 TAG12)
(HLRZ@ 1 1)
(MOVEM 1 -5 P)
(MOVE 1 -6 P)
(JUMPE 1 TAG12)
(HLRZ@ 1 1)
(MOVEM 1 -4 P)
(MOVE 1 -5 P)
(MOVEM 1 -2 P)
(MOVE 1 -4 P)
(MOVEM 1 0 P)
TAG3 (MOVE 1 -2 P)
(JUMPE 1 TAG7)
(HLRZ@ 1 1)
(MOVEM 1 -3 P)
(MOVE 1 0 P)
(JUMPE 1 TAG7)
(HLRZ@ 1 1)
(MOVEM 1 -1 P)
(MOVE 3 -14 P)
(MOVE 2 1)
(MOVE 1 -12 P)
(CALL 3 (E CONNECTIVITY))
(MOVE 3 -14 P)
(MOVE 2 -3 P)
(PUSH P 1)
(MOVE 1 -21 P)
(CALL 3 (E CONNECTIVITY))
(POP P 2)
(CALL 2 (E EQUAL))
(MOVEM 1 -10 P)
(JUMPN 1 TAG34)
(MOVE 1 -10 P)
(JRST 0 TAG24)
TAG34
TAG4
TAG5 (HRRZ@ 1 0 P)
(MOVEM 1 0 P)
TAG6 (HRRZ@ 1 -2 P)
(MOVEM 1 -2 P)
(JRST 0 TAG3)
TAG7
TAG10 (HRRZ@ 1 -6 P)
(MOVEM 1 -6 P)
TAG11 (HRRZ@ 1 -7 P)
(MOVEM 1 -7 P)
(JRST 0 TAG2)
TAG12 (MOVE 1 -10 P)
TAG24 (SUB P (C 0 0 11 11))
(JUMPE 1 TAG14)
(MOVE 2 0 P)
(MOVE 1 -1 P)
(CALL 2 (E CONS))
(MOVEM 1 0 P)
TAG13
TAG14 (HRRZ@ 1 -2 P)
(MOVEM 1 -2 P)
(JRST 0 TAG1)
TAG15 (MOVE 1 0 P)
(SUB P (C 0 0 10 10))
(POPJ P)
NIL
(LAP CONNECTIVITY SUBR)
(PUSH P 1)
(PUSH P 2)
(PUSH P 3)
(PUSH P (C 0 0 (QUOTE 0) 0))
(MOVE 2 3)
(CALL 2 (E FINDCTE))
(HRRZ@ 1 1)
(HRRZ@ 1 1)
(HRRZ@ 1 1)
(PUSH P 1)
(PUSH P (C 0 0 (QUOTE NIL) 0))
TAG1 (MOVE 1 -1 P)
(JUMPE 1 TAG4)
(HLRZ@ 1 1)
(MOVEM 1 0 P)
(MOVE 2 -4 P)
(CALL 2 (E EQUAL))
(JUMPE 1 TAG3)
(MOVE 2 -2 P)
(MOVEI 1 (QUOTE 1))
(CALL 2 (E *PLUS))
(MOVEM 1 -2 P)
TAG2
TAG3 (HRRZ@ 1 -1 P)
(MOVEM 1 -1 P)
(JRST 0 TAG1)
TAG4 (MOVE 1 -2 P)
(SUB P (C 0 0 6 6))
(POPJ P)
NIL
(LAP GROUPCOUNT SUBR)
(PUSH P 1)
(CALL 1 (E CLCREATE))
(MOVE 2 1)
(MOVEI 1 (QUOTE CDR))
(CALL 2 (E GROUPBY))
(MOVEM 1 0 P)
(PUSH P (C 0 0 (QUOTE NIL) 0))
(PUSH P (C 0 0 (QUOTE NIL) 0))
(PUSH P (C 0 0 (QUOTE -122221) 0))
(PUSH P 1)
(PUSH P (C 0 0 (QUOTE NIL) 0))
TAG1 (MOVE 1 -1 P)
(JUMPE 1 TAG4)
(HLRZ@ 1 1)
(MOVE 2 -2 P)
(MOVEM 1 0 P)
(HLRZ@ 1 1)
(CALL 2 (E MAX))
(MOVEM 1 -2 P)
TAG2
TAG3 (HRRZ@ 1 -1 P)
(MOVEM 1 -1 P)
(JRST 0 TAG1)
TAG4 (MOVE 1 -2 P)
(SUB P (C 0 0 3 3))
(MOVEM 1 -1 P)
TAG5 (MOVEI 2 (QUOTE 1))
(MOVE 1 -1 P)
(CALL 2 (E *LESS))
(JUMPN 1 TAG10)
(MOVEI 3 (QUOTE NIL))
(MOVE 2 -2 P)
(MOVE 1 -1 P)
(CALL 3 (E LMASSOC))
(CALL 1 (E CARLIST))
(MOVE 2 0 P)
(CALL 2 (E CONS))
(MOVEM 1 0 P)
TAG6
TAG7 (MOVEI 2 (QUOTE -1))
(MOVE 1 -1 P)
(CALL 2 (E *PLUS))
(MOVEM 1 -1 P)
(JRST 0 TAG5)
TAG10 (MOVE 1 0 P)
(SUB P (C 0 0 3 3))
(POPJ P)
NIL
(LAP FOUND? SUBR)
(PUSH P 1)
(PUSH P 2)
(HLRZ@ 1 2)
(PUSH P (C 0 0 (QUOTE 1) 0))
(PUSH P 1)
(PUSH P (C 0 0 (QUOTE NIL) 0))
(PUSH P (C 0 0 (QUOTE NIL) 0))
TAG1 (MOVE 1 -2 P)
(JUMPE 1 TAG5)
(HLRZ@ 1 1)
(MOVEM 1 -1 P)
(MOVEI 2 (QUOTE 12222221))
(MOVE 1 -3 P)
(CALL 2 (E *GREAT))
(JUMPN 1 TAG5)
(MOVE 2 -1 P)
(MOVE 1 -5 P)
(CALL 2 (E MEMBER))
(JUMPE 1 TAG14)
(MOVE 2 -1 P)
(MOVE 1 -3 P)
(CALL 2 (E CONS))
(JRST 0 TAG6)
TAG14
TAG2
TAG3 (MOVEI 2 (QUOTE 1))
(MOVE 1 -3 P)
(CALL 2 (E *PLUS))
(MOVEM 1 -3 P)
TAG4 (HRRZ@ 1 -2 P)
(MOVEM 1 -2 P)
(JRST 0 TAG1)
TAG5 (MOVE 1 0 P)
TAG6 (SUB P (C 0 0 6 6))
(POPJ P)
NIL
(LAP FINDGROUPEDGES SUBR)
(PUSH P 1)
(PUSH P 2)
(PUSH P (C 0 0 (QUOTE NIL) 0))
(PUSH P (C 0 0 (QUOTE T) 0))
(PUSH P 1)
(PUSH P (C 0 0 (QUOTE NIL) 0))
TAG1 (MOVE 1 -1 P)
(JUMPE 1 TAG4)
(HLRZ@ 1 1)
(MOVEM 1 0 P)
(HRRZ@ 1 -4 P)
(HRRZ@ 1 1)
(HRRZ@ 1 1)
(HRRZ@ 2 1)
(HLRZ@ 1 0 P)
(CALL 2 (E FOUND?))
(JUMPE 1 TAG31)
(HRRZ@ 1 -4 P)
(HRRZ@ 1 1)
(HRRZ@ 1 1)
(HRRZ@ 2 1)
(HRRZ@ 1 0 P)
(CALL 2 (E FOUND?))
(JUMPN 1 TAG30)
TAG31 (TDZA 1 1)
TAG30 (MOVEI 1 (QUOTE T))
(MOVEM 1 -2 P)
(JUMPN 1 TAG27)
(MOVE 1 -2 P)
(JRST 0 TAG22)
TAG27
TAG2
TAG3 (HRRZ@ 1 -1 P)
(MOVEM 1 -1 P)
(JRST 0 TAG1)
TAG4 (MOVE 1 -2 P)
TAG22 (SUB P (C 0 0 3 3))
(JUMPN 1 TAG21)
(MOVE 1 -1 P)
(CALL 1 (E FIXUPGROUP))
(JRST 0 TAG20)
TAG21
TAG32
TAG20 (HRRZ@ 1 -1 P)
(HRRZ@ 1 1)
(HRRZ@ 1 1)
(HRRZ@ 1 1)
(MOVEM 1 0 P)
(HRRZ@ 1 1)
(PUSH P 1)
(PUSH P (C 0 0 (QUOTE NIL) 0))
(PUSH P (C 0 0 (QUOTE NIL) 0))
TAG5 (MOVE 1 -2 P)
(JUMPE 1 TAG14)
(HLRZ@ 1 1)
(MOVEM 1 -1 P)
(PUSH P -5 P)
(PUSH P (C 0 0 (QUOTE NIL) 0))
(PUSH P (C 0 0 (QUOTE NIL) 0))
TAG6 (MOVE 1 -2 P)
(JUMPN 1 TAG44)
(JRST 0 TAG11)
TAG44 (HLRZ@ 1 -2 P)
(MOVEM 1 -1 P)
(PUSH P (C 0 0 TAG45 0))
(PUSH P -1 P)
(MOVE 3 -6 P)
(HLRZ@ 2 -10 P)
(HLRZ@ 1 1)
(CALL 3 (E IMAGE))
(MOVE 3 -6 P)
(HLRZ@ 2 -10 P)
(PUSH P 1)
(HRRZ@ 1 -4 P)
(CALL 3 (E IMAGE))
(MOVE 2 1)
(POP P 1)
(CALL 2 (E ORDPAIR))
(CALL 1 (E NCONS))
(PUSH P 1)
(MOVNI 6 2)
(JCALL 16 (E NCONC))
TAG45 (MOVEM 1 0 P)
TAG7
TAG10 (HRRZ@ 1 -2 P)
(MOVEM 1 -2 P)
(JRST 0 TAG6)
TAG11 (MOVE 1 0 P)
(MOVE 2 -4 P)
(CALL 2 (E CONS))
(MOVE 2 -10 P)
(CALL 2 (E XCONS))
(MOVE 2 -3 P)
(CALL 2 (E CONS))
(SUB P (C 0 0 3 3))
(MOVEM 1 0 P)
TAG12
TAG13 (HRRZ@ 1 -2 P)
(MOVEM 1 -2 P)
(JRST 0 TAG5)
TAG14 (MOVE 1 0 P)
(MOVEM 1 -2 P)
(HLRZ@ 1 -3 P)
(CALL 1 (E NCONS))
(MOVE 2 -2 P)
(SUB P (C 0 0 6 6))
(JCALL 2 (E XCONS))
NIL
(LAP IMAGE SUBR)
(PUSH P 1)
(PUSH P 2)
(PUSH P 3)
(PUSH P 3)
(PUSH P 2)
(PUSH P (C 0 0 (QUOTE NIL) 0))
(PUSH P (C 0 0 (QUOTE NIL) 0))
(PUSH P (C 0 0 (QUOTE NIL) 0))
(PUSH P (C 0 0 (QUOTE NIL) 0))
(PUSH P (C 0 0 (QUOTE NIL) 0))
(PUSH P (C 0 0 (QUOTE NIL) 0))
(PUSH P (C 0 0 (QUOTE NIL) 0))
TAG1 (MOVE 1 -7 P)
(JUMPE 1 TAG11)
(HLRZ@ 1 1)
(MOVEM 1 -6 P)
(MOVE 1 -10 P)
(JUMPE 1 TAG11)
(HLRZ@ 1 1)
(MOVEM 1 -5 P)
(MOVE 1 -6 P)
(MOVEM 1 -3 P)
(MOVE 1 -5 P)
(MOVEM 1 -1 P)
TAG2 (MOVE 1 -3 P)
(JUMPE 1 TAG6)
(HLRZ@ 1 1)
(MOVEM 1 -4 P)
(MOVE 1 -1 P)
(JUMPE 1 TAG6)
(HLRZ@ 1 1)
(MOVEM 1 -2 P)
(MOVE 2 -4 P)
(MOVE 1 -13 P)
(CALL 2 (E EQUAL))
(JUMPE 1 TAG4)
(MOVE 1 -2 P)
(JRST 0 TAG12)
TAG3
TAG4 (HRRZ@ 1 -1 P)
(MOVEM 1 -1 P)
TAG5 (HRRZ@ 1 -3 P)
(MOVEM 1 -3 P)
(JRST 0 TAG2)
TAG6
TAG7 (HRRZ@ 1 -10 P)
(MOVEM 1 -10 P)
TAG10 (HRRZ@ 1 -7 P)
(MOVEM 1 -7 P)
(JRST 0 TAG1)
TAG11 (MOVE 1 0 P)
TAG12 (SUB P (C 0 0 14 14))
(POPJ P)
NIL
(LAP FINDGROUPNODES SUBR)
(PUSH P 1)
(PUSH P 2)
(PUSH P (C 0 0 (QUOTE NIL) 0))
TAG1 (HRRZ@ 1 -1 P)
(HRRZ@ 1 1)
(HRRZ@ 1 1)
(HRRZ@ 2 1)
(HLRZ@ 1 -2 P)
(CALL 2 (E FOUND?))
(MOVEM 1 0 P)
(JUMPN 1 TAG12)
(MOVE 1 -1 P)
(CALL 1 (E FIXUPGROUP))
(JRST 0 TAG11)
TAG12 (HRRZ@ 1 -1 P)
(HRRZ@ 1 1)
(HRRZ@ 1 1)
(HRRZ@ 1 1)
(HRRZ@ 1 1)
(PUSH P 1)
(PUSH P (C 0 0 (QUOTE NIL) 0))
(PUSH P (C 0 0 (QUOTE NIL) 0))
TAG2 (MOVE 1 -2 P)
(JUMPE 1 TAG5)
(HLRZ@ 1 1)
(MOVEM 1 -1 P)
(HRRZ@ 1 -3 P)
(HLRZ@ 2 -3 P)
(PUSH P 1)
(MOVE 1 -2 P)
(CALL 2 (E NTH))
(MOVE 2 -2 P)
(HLRZ@ 1 1)
(CALL 2 (E CONS))
(POP P 2)
(CALL 2 (E XCONS))
(MOVE 2 0 P)
(CALL 2 (E CONS))
(MOVEM 1 0 P)
TAG3
TAG4 (HRRZ@ 1 -2 P)
(MOVEM 1 -2 P)
(JRST 0 TAG2)
TAG5 (MOVE 1 0 P)
(MOVEM 1 -2 P)
(HRRZ@ 1 -4 P)
(HRRZ@ 1 1)
(HRRZ@ 1 1)
(HRRZ@ 1 1)
(HLRZ@ 1 1)
(CALL 1 (E NCONS))
(MOVE 2 -2 P)
(CALL 2 (E XCONS))
(SUB P (C 0 0 3 3))
(JRST 0 TAG6)
TAG13
TAG11 (JRST 0 TAG1)
TAG6 (SUB P (C 0 0 3 3))
(POPJ P)
NIL
(LAP SIZE SUBR)
(PUSH P 1)
(HLRZ@ 1 1)
(CAIE 1 (QUOTE MULT))
(JRST 0 TAG2)
(HRRZ@ 1 0 P)
(PUSH P 1)
(HRRZ@ 1 -1 P)
(HLRZ@ 1 1)
(PUSH P 1)
(HRRZ@ 1 -1 P)
(CALL 1 (E SIZE))
(POP P 2)
(CALL 2 (E *TIMES))
(SUB P (C 0 0 1 1))
(JRST 0 TAG1)
TAG2 (HLRZ@ 1 0 P)
(CAIE 1 (QUOTE BOTH))
(JRST 0 TAG3)
(HRRZ@ 1 0 P)
(HLRZ@ 1 1)
(CALL 1 (E SIZE))
(PUSH P 1)
(HRRZ@ 1 -1 P)
(HRRZ@ 1 1)
(CALL 1 (E SIZE))
(POP P 2)
(CALL 2 (E *PLUS))
(JRST 0 TAG1)
TAG3 (HLRZ@ 1 0 P)
(CAIN 1 (QUOTE NODES))
(JRST 0 TAG5)
(HLRZ@ 1 0 P)
(CAIN 1 (QUOTE EDGES))
(JRST 0 TAG5)
(HLRZ@ 1 0 P)
(CAIE 1 (QUOTE ?))
(JRST 0 TAG4)
TAG5 (HRRZ@ 1 0 P)
(CALL 1 (E LENGTH))
(JRST 0 TAG1)
TAG4 (MOVEI 2 (QUOTE (BAD ARG TO SIZE)))
(MOVE 1 0 P)
(CALL 2 (E CONS))
(MOVEI 2 (QUOTE 0))
(CALL 2 (E PRINT))
TAG6
TAG1 (SUB P (C 0 0 1 1))
(POPJ P)
NIL
(COMMENT MISC COMPUTATION FUNCTIONS)
(LAP TD SUBR)
(PUSH P 1)
(PUSH P 2)
(JUMPN 1 TAG2)
(MOVEI 1 (QUOTE 0))
(JRST 0 TAG1)
TAG2 (HLRZ@ 2 -1 P)
(MOVE 1 0 P)
(CALL 2 (E *TIMES))
(PUSH P 1)
(HRRZ@ 1 -2 P)
(PUSH P 1)
(MOVE 1 -2 P)
(CALL 1 (E ADD1))
(MOVE 2 1)
(POP P 1)
(CALL 2 (E TD))
(POP P 2)
(CALL 2 (E *PLUS))
TAG3
TAG1 (SUB P (C 0 0 2 2))
(POPJ P)
NIL
(LAP M22 SUBR)
(MOVEI 2 (QUOTE 2))
(CALL 2 (E *QUO))
(JCALL 1 (E SUB1))
NIL
(LAP MAXREST SUBR)
(PUSH P 1)
(PUSH P 2)
(PUSH P (C 0 0 (QUOTE 0) 0))
(HRRZ@ 1 1)
(PUSH P 1)
(MOVE 1 2)
(CALL 1 (E ADD1))
(PUSH P 1)
(PUSH P (C 0 0 (QUOTE NIL) 0))
TAG1 (MOVE 1 -2 P)
(JUMPE 1 TAG5)
(HLRZ@ 1 1)
(MOVEM 1 0 P)
(MOVEI 2 (QUOTE 12222221))
(MOVE 1 -1 P)
(CALL 2 (E *GREAT))
(JUMPN 1 TAG5)
(MOVE 1 -1 P)
(CALL 1 (E M22))
(MOVE 2 0 P)
(CALL 2 (E *TIMES))
(MOVE 2 -3 P)
(CALL 2 (E *PLUS))
(MOVEM 1 -3 P)
TAG2
TAG3 (MOVEI 2 (QUOTE 1))
(MOVE 1 -1 P)
(CALL 2 (E *PLUS))
(MOVEM 1 -1 P)
TAG4 (HRRZ@ 1 -2 P)
(MOVEM 1 -2 P)
(JRST 0 TAG1)
TAG5 (MOVE 1 -3 P)
(SUB P (C 0 0 6 6))
(POPJ P)
NIL
(COMMENT FUNCTIONS FOR LOOPS)
(LAP LOOPPARTITIONS1 SUBR)
(PUSH P 1)
(PUSH P 2)
(PUSH P 3)
(JUMPN 2 TAG15)
(MOVEI 1 (QUOTE NIL))
(CALL 1 (E NCONS))
(JRST 0 TAG14)
TAG15 (MOVE 1 0 P)
(CALL 1 (E M22))
(HLRZ@ 2 -1 P)
(CALL 2 (E *TIMES))
(MOVE 2 1)
(MOVE 1 -2 P)
(CALL 2 (E MIN))
(MOVE 2 0 P)
(PUSH P 1)
(MOVE 1 -2 P)
(CALL 2 (E MAXREST))
(MOVE 2 1)
(MOVE 1 -3 P)
(CALL 2 (E *DIF))
(MOVE 2 1)
(MOVEI 1 (QUOTE 0))
(CALL 2 (E MAX))
(PUSH P 1)
(PUSH P (C 0 0 (QUOTE NIL) 0))
(PUSH P (C 0 0 (QUOTE NIL) 0))
(PUSH P (C 0 0 (QUOTE NIL) 0))
(PUSH P (C 0 0 (QUOTE NIL) 0))
(PUSH P (C 0 0 (QUOTE NIL) 0))
(PUSH P (C 0 0 (QUOTE NIL) 0))
TAG1 (MOVE 2 -7 P)
(MOVE 1 -6 P)
(CALL 2 (E *GREAT))
(JUMPN 1 TAG13)
(MOVE 2 -6 P)
(MOVE 1 -12 P)
(CALL 2 (E *DIF))
(PUSH P 1)
(HRRZ@ 1 -12 P)
(PUSH P 1)
(MOVE 1 -12 P)
(CALL 1 (E ADD1))
(MOVE 3 1)
(POP P 2)
(POP P 1)
(CALL 3 (E LOOPPARTITIONS1))
(MOVEM 1 -5 P)
(HLRZ@ 1 -11 P)
(PUSH P 1)
(MOVE 1 -11 P)
(CALL 1 (E M22))
(MOVE 3 1)
(POP P 2)
(MOVE 1 -6 P)
(CALL 3 (E FVPART1))
(MOVEM 1 -3 P)
TAG2 (MOVE 1 -3 P)
(JUMPE 1 TAG10)
(HLRZ@ 1 1)
(MOVEM 1 -4 P)
(MOVE 1 -5 P)
(MOVEM 1 -1 P)
TAG3 (MOVE 1 -1 P)
(JUMPE 1 TAG6)
(HLRZ@ 1 1)
(MOVE 2 -4 P)
(MOVEM 1 -2 P)
(CALL 2 (E XCONS))
(MOVE 2 0 P)
(CALL 2 (E CONS))
(MOVEM 1 0 P)
TAG4
TAG5 (HRRZ@ 1 -1 P)
(MOVEM 1 -1 P)
(JRST 0 TAG3)
TAG6
TAG7 (HRRZ@ 1 -3 P)
(MOVEM 1 -3 P)
(JRST 0 TAG2)
TAG10
TAG11
TAG12 (MOVEI 2 (QUOTE 1))
(MOVE 1 -6 P)
(CALL 2 (E *PLUS))
(MOVEM 1 -6 P)
(JRST 0 TAG1)
TAG13 (MOVE 1 0 P)
(SUB P (C 0 0 10 10))
TAG16
TAG14 (SUB P (C 0 0 3 3))
(POPJ P)
NIL
(LAP JLIST SUBR)
(PUSH P 1)
(PUSH P 2)
(JUMPE 1 TAG1)
(HRRZ@ 1 1)
(JUMPN 1 TAG2)
(HLRZ@ 1 -1 P)
(CALL 2 (E NTH))
(HLRZ@ 1 1)
(CALL 1 (E NCONS))
(JRST 0 TAG1)
TAG2 (MOVE 2 0 P)
(HLRZ@ 1 -1 P)
(CALL 2 (E NTH))
(PUSH P 1)
(HRRZ@ 1 -2 P)
(HRRZ@ 1 1)
(PUSH P 1)
(HLRZ@ 1 -1 P)
(MOVEM 1 -1 P)
(MOVE 1 -2 P)
(CALL 1 (E ADD1))
(MOVE 2 1)
(POP P 1)
(CALL 2 (E JLIST))
(POP P 2)
(CALL 2 (E XCONS))
TAG3
TAG1 (SUB P (C 0 0 2 2))
(POPJ P)
NIL
(LAP LPROWS SUBR)
(PUSH P 2)
(MOVEI 2 (QUOTE NIL))
(PUSH P 1)
(CALL 2 (E XCONS))
(MOVEM 1 0 P)
(PUSH P (C 0 0 (QUOTE 4) 0))
(HLRZ@ 1 -2 P)
(PUSH P (C 0 0 (QUOTE NIL) 0))
(PUSH P (C 0 0 (QUOTE NIL) 0))
(PUSH P (C 0 0 (QUOTE NIL) 0))
(PUSH P 1)
(HRRZ@ 2 -6 P)
(PUSH P -5 P)
(PUSH P 2)
(PUSH P (C 0 0 (QUOTE NIL) 0))
(PUSH P (C 0 0 (QUOTE NIL) 0))
(PUSH P (C 0 0 (QUOTE NIL) 0))
TAG1 (MOVE 2 -3 P)
(JUMPN 2 TAG23)
(JRST 0 TAG5)
TAG23 (HLRZ@ 2 -3 P)
(MOVEM 2 -2 P)
(MOVE 2 -4 P)
(JUMPN 2 TAG25)
(JRST 0 TAG5)
TAG25 (HLRZ@ 2 -4 P)
(MOVEM 2 -1 P)
(PUSH P (C 0 0 TAG26 0))
(PUSH P -1 P)
(MOVE 1 2)
(CALL 1 (E PLUSLIST))
(MOVE 2 1)
(MOVE 1 -4 P)
(CALL 2 (E *DIF))
(CALL 1 (E NCONS))
(PUSH P 1)
(MOVNI 6 2)
(JCALL 16 (E NCONC))
TAG26 (MOVEM 1 0 P)
TAG2
TAG3 (HRRZ@ 2 -4 P)
(MOVEM 2 -4 P)
TAG4 (HRRZ@ 2 -3 P)
(MOVEM 2 -3 P)
(JRST 0 TAG1)
TAG5 (MOVE 2 0 P)
(MOVE 1 -5 P)
(CALL 2 (E CONS))
(SUB P (C 0 0 6 6))
(MOVEM 1 -1 P)
TAG6 (MOVEI 2 (QUOTE 1222221))
(MOVE 1 -3 P)
(CALL 2 (E *GREAT))
(JUMPN 1 TAG13)
(MOVE 1 -1 P)
(JUMPE 1 TAG13)
(HLRZ@ 1 1)
(MOVEM 1 -2 P)
(MOVE 1 -4 P)
(JUMPE 1 TAG32)
(HRRZ@ 1 1)
(JRST 0 TAG31)
TAG32 (MOVEI 1 (QUOTE NIL))
TAG33
TAG31 (MOVEM 1 -4 P)
(PUSH P (C 0 0 TAG35 0))
(PUSH P -1 P)
(MOVE 1 -5 P)
(CALL 1 (E M22))
(MOVE 2 1)
(MOVE 1 -6 P)
(CALL 2 (E JLIST))
(MOVE 2 -4 P)
(CALL 2 (E XCONS))
(CALL 1 (E NCONS))
(PUSH P 1)
(MOVNI 6 2)
(JCALL 16 (E NCONC))
TAG35 (MOVEM 1 0 P)
TAG7
TAG10
TAG11 (HRRZ@ 1 -1 P)
(MOVEM 1 -1 P)
TAG12 (MOVEI 2 (QUOTE 1))
(MOVE 1 -3 P)
(CALL 2 (E *PLUS))
(MOVEM 1 -3 P)
(JRST 0 TAG6)
TAG13 (MOVE 1 0 P)
(SUB P (C 0 0 6 6))
(POPJ P)
NIL
(LAP LOOPPARTITIONS SUBR)
(PUSH P 1)
(PUSH P 2)
(MOVEI 3 (QUOTE 4))
(HRRZ@ 2 2)
(HRRZ@ 2 2)
(CALL 3 (E LOOPPARTITIONS1))
(PUSH P 1)
(PUSH P (C 0 0 (QUOTE NIL) 0))
(PUSH P (C 0 0 (QUOTE NIL) 0))
(PUSH P (C 0 0 (QUOTE NIL) 0))
(PUSH P (C 0 0 (QUOTE NIL) 0))
(PUSH P (C 0 0 (QUOTE NIL) 0))
(PUSH P (C 0 0 (QUOTE NIL) 0))
(PUSH P (C 0 0 (QUOTE NIL) 0))
(PUSH P (C 0 0 (QUOTE NIL) 0))
(PUSH P (C 0 0 (QUOTE NIL) 0))
(PUSH P (C 0 0 (QUOTE NIL) 0))
(PUSH P (C 0 0 (QUOTE NIL) 0))
(PUSH P (C 0 0 (QUOTE NIL) 0))
TAG1 (MOVE 1 -14 P)
(JUMPE 1 TAG22)
(HLRZ@ 1 1)
(MOVE 2 -15 P)
(MOVEM 1 -13 P)
(CALL 2 (E LPROWS))
(MOVEI 2 (QUOTE 3))
(MOVEM 1 -12 P)
(HRRZ@ 1 -15 P)
(CALL 2 (E TD))
(MOVEM 1 -10 P)
(MOVEI 1 (QUOTE 0))
(MOVEM 1 -11 P)
TAG2 (MOVE 2 -10 P)
(MOVE 1 -11 P)
(CALL 2 (E *GREAT))
(JUMPN 1 TAG17)
(HLRZ@ 1 -15 P)
(MOVE 2 -11 P)
(PUSH P 1)
(MOVE 1 -17 P)
(CALL 2 (E *PLUS))
(MOVEI 4 (QUOTE 1222221))
(MOVEI 3 (QUOTE 1))
(MOVE 2 1)
(POP P 1)
(CALL 4 (E NUMPARTITIONS))
(MOVEM 1 -6 P)
TAG3 (MOVE 1 -6 P)
(JUMPE 1 TAG15)
(HLRZ@ 1 1)
(MOVEM 1 -7 P)
(CALL 1 (E CLCREATE))
(MOVE 2 -11 P)
(MOVEM 1 -5 P)
(CALL 2 (E CLPARTS))
(MOVEM 1 -3 P)
TAG4 (MOVE 1 -3 P)
(JUMPE 1 TAG12)
(HLRZ@ 1 1)
(MOVE 2 1)
(MOVEM 1 -4 P)
(MOVE 1 -5 P)
(CALL 2 (E CLDIFF))
(PUSH P 1)
(MOVE 1 -13 P)
(CALL 1 (E CDRLIST))
(MOVE 2 1)
(POP P 1)
(CALL 2 (E CLPARTITIONSL))
(MOVEM 1 -1 P)
TAG5 (MOVE 1 -1 P)
(JUMPE 1 TAG10)
(HLRZ@ 1 1)
(MOVEM 1 -2 P)
(HLRZ@ 1 -12 P)
(HRRZ@ 1 1)
(CALL 1 (E PLUSLIST))
(HRRZ@ 2 -12 P)
(PUSH P 1)
(MOVEI 1 (QUOTE PLUSLIST))
(CALL 2 (E MAPCAR))
(POP P 2)
(CALL 2 (E XCONS))
(MOVE 2 -2 P)
(PUSH P 1)
(MOVE 1 -5 P)
(CALL 2 (E CONS))
(POP P 2)
(CALL 2 (E XCONS))
(MOVE 2 0 P)
(CALL 2 (E CONS))
(MOVEM 1 0 P)
TAG6
TAG7 (HRRZ@ 1 -1 P)
(MOVEM 1 -1 P)
(JRST 0 TAG5)
TAG10
TAG11 (HRRZ@ 1 -3 P)
(MOVEM 1 -3 P)
(JRST 0 TAG4)
TAG12
TAG13
TAG14 (HRRZ@ 1 -6 P)
(MOVEM 1 -6 P)
(JRST 0 TAG3)
TAG15
TAG16 (MOVEI 2 (QUOTE 1))
(MOVE 1 -11 P)
(CALL 2 (E *PLUS))
(MOVEM 1 -11 P)
(JRST 0 TAG2)
TAG17
TAG20
TAG21 (HRRZ@ 1 -14 P)
(MOVEM 1 -14 P)
(JRST 0 TAG1)
TAG22 (MOVE 1 0 P)
(SUB P (C 0 0 17 17))
(POPJ P)
NIL